BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/Hyper/F/FilmPro.cpt/Job File/background_2603.txt

Text File | 1988-04-17 | 14.7 KB | 711 lines

-- background: 2603 from stack: in
-- bmap block id: 5496
-- flags: 4000
-- background id: 0
-- name: Job File Background
----- HyperTalk script -----
on openstack
  hide background field "hidden keywords"

end openstack

on closestack
  if the freesize of this stack > 0.15 * the size of this stack then
    set cursor to 4
    domenu "compact stack"
  end if
end closestack




-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=25 right=58 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Keywords
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  show background field "hidden keywords"
  answer "New Keywords will replace old ones" with "Cancel" or "Okay"
  if it is "okay" then
    ask "Enter Keywords for this Job"
    put it into background field "hidden keywords"
  end if
  hide background field "hidden keywords"


end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=303 top=28 right=57 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: find
----- HyperTalk script -----
on mouseUp
  play harpsichord
  domenu "find..."
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=340 top=26 right=57 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  play "harpsichord"
  answer "Sort all cards according to:" with "Product" or  "Title" or "Job #"
  if it is "Product"
  then sort by first word of first line of background field "Product"
else if it is "Title"
then sort  by first word of background field "Title"
else if it is "Job #"
then sort numeric by first word of  background field "Job #"

end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=421 top=30 right=54 bottom=450
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  dial first word of line one of field "phone" with modem "ATDT"

end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=245 top=309 right=332 bottom=271
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right fast to black
  visual effect scroll right fast
  go to prev card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=277 top=309 right=332 bottom=302
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left fast to black
  visual effect scroll left fast
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=212 top=28 right=56 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Button Help
----- HyperTalk script -----


on mouseup
  push this card
  set cursor to 4
  visual effect barn door open
  go to stack "FilmPro Help"
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=461 top=25 right=58 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord
  answer "Proceed with Printing?" with "This Card" or "This Stack" or "Cancel"
  if it is "This Card" then domenu "Print card"
  else if it is "This Stack" then domenu "Print stack..."
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=214 right=251 bottom=40
-- title width / last selected line: 65535
-- icon id / first selected line: -15743 / 49793
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Crews Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "crews"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=260 right=295 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locations Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack "Locations"
end mouseUp




-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=2 top=58 right=95 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 2002 / 2002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client Stack Button
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to stack Clients
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=47 top=301 right=331 bottom=79
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  visual effect wipe left fast to black
  visual effect wipe right fast
  pop card
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=8 top=183 right=210 bottom=36
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: memos
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack memos



end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=3 top=139 right=176 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 18814 / 18814
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Call Sheets
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve  to white
  visual effect dissolve
  go to last card in stack Call Sheets

end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=99 right=132 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: jobs stack button
----- HyperTalk script -----
on mouseUp
  beep
  answer "You are already in the Job File Stack"
end mouseUp



-- part 22 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=102 top=33 right=50 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Job #


-- part 23 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=162 top=65 right=131 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Client


-- part 38 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=162 top=132 right=148 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone


-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=117 top=158 right=174 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Product


-- part 25 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=302 top=158 right=175 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title


-- part 39 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=126 top=175 right=191 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Producer


-- part 41 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=347 top=175 right=193 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Director


-- part 43 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=155 top=192 right=208 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Originate On:


-- part 44 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=335 top=193 right=209 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit On:


-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=146 top=210 right=260 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Description


-- part 34 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=165 top=261 right=278 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Shoot Days


-- part 35 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=376 top=260 right=277 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit Days


-- part 36 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=125 top=278 right=311 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Deadline


-- part 37 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=354 top=278 right=310 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dub/Print Order


-- part 47 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=62 top=66 right=93 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CONTACT ADDRESS
----- HyperTalk script -----
on mouseUp
  if line one of bkgnd field client is empty then
    beep
    answer "Enter Contact's Name Please"
    get the loc of bkgnd field "job #"
    click at it
    tabkey
  else if line one of bkgnd field client is not empty then
    push card
    set cursor to 4
    put line one of bkgnd field client into holder
    set lockscreen to true
    go to stack clients
    find holder
    if the result is not empty then
      beep
      answer "Can't find that name in Client Stack"
      pop card
    else if the result is empty then
      tabkey
      put selection into holder2
      tabkey
      put selection into temp
      pop card
      put holder2 into bkgnd field client
      put temp into bkgnd field phone
      set lockscreen to false
      get the loc of bkgnd field phone
      click at it
      tabkey
    end if
  end if
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=383 top=24 right=59 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Letter
----- HyperTalk script -----
on mouseup
  get the loc of bkgnd field "job #"
  click at it
  tabkey
  if bkgnd field "client" is empty then
    play harpsichord
    answer "There is no Name and Address to Copy."
    exit mouseup
  end if

  domenu "copy text"
  play harpsichord
  ask "Which Word Processing Program?"
  put it into wp
  if it is not empty then
    open wp
  else if it is empty then
    exit mouseup
  end if

end mouseup



-- part 20 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=208 top=24 right=58 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hidden keywords


-- part 45 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=1 top=23 right=55 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: filmpro
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  push this card
  visual effect dissolve to white
  visual effect dissolve
  go to card id 2844 of stack "FilmPro "
end mouseUp




-- part 46 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=4 top=299 right=333 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Application
----- HyperTalk script -----
on mouseUp
  play harpsichord
  ask "Which application would you like to open?"
  if it is not empty then
    suspend
    open it
  else if it is empty then
    exit mouseup
  end if

end mouseUp